﻿Public Class f_citas

    Dim c As New Controlador

    Private Sub f_citas_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        calendario_busqueda.MinDate = calendario_busqueda.TodayDate
        c.devuelve_citas()

    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tb_cliente.TextChanged
        c.dame_mascotas_de_cliente()

    End Sub

    Private Sub MonthCalendar1_DateChanged(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DateRangeEventArgs) Handles calendario_busqueda.DateChanged
        c.buscar_citas()
    End Sub

    Private Sub tb_b_nombre_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tb_b_nombre.TextChanged
        c.buscar_citas()

    End Sub


End Class